home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 April / EnigmA AMIGA RUN 17 (1997)(G.R. Edizioni)(IT)[!][issue 1997-04][EAR-CD].iso / EARCD / comm / ums / IntuiNews1_4a.lha / UMS / Rexx / PGPAddKey.intui < prev    next >
Text File  |  1995-03-29  |  1KB  |  60 lines
  1. /****** PGPAddKey.intui ******************************************************
  2.  
  3.     NAME
  4.       $VER: PGPAddKey.intui 1.0 (29.3.95)
  5.  
  6.     SYNOPSIS
  7.       add a PGP public-key found in a message to your PGP-keyring
  8.  
  9.     AUTHOR
  10.       Olaf Peters
  11.       Kulmer Str. 7
  12.       28237 Bremen
  13.  
  14.       op@hb2.maus.de / olf@informatik.uni-bremen.de
  15.  
  16.     INSTALLATION
  17.       Copy PGPAddKey.intui to the place where your other
  18.       IntuiNews-ARexx-Script are located.
  19.  
  20.     NOTES
  21.       PGPAddKey.intui is based upon PGPDecrypt.intui by Matthias Scheler
  22.  
  23.       PGPAddKey.intui should only be called from IntuiNews' message-window.
  24.  
  25.     SEE ALSO
  26.       IntuiNews' documentation about installing and calling ARexx-script
  27.       from within IntuiNews.
  28.  
  29. ******************************************************************************
  30. *
  31. */
  32.  
  33. /* Exit if Message Window is not active. */
  34.  
  35. OPTIONS RESULTS
  36.  
  37. STATUS
  38. IF RESULT~="MESSAGE" THEN EXIT 5
  39.  
  40. /* We get IntuiNews's message number, ... */
  41.  
  42. GETMSGNUM
  43. MsgNum=RESULT
  44.  
  45. /* ... save the message, ... */
  46.  
  47. 'SAVEMSGBODY' MsgNum 'TO T:IntuiNews.pgp'
  48.  
  49. /* ... call PGP, ... */
  50.  
  51. SHELL COMMAND 'pgp +BATCHMODE -ka T:IntuiNews.pgp > T:IntuiNews.PGPOut'
  52.  
  53. /* ... and show the output of PGP in the messagewindow ... */
  54.  
  55. 'REPLACEMSGBODY WITH T:IntuiNews.pgpout'
  56.  
  57. /* cleanup */
  58.  
  59. SHELL COMMAND 'Delete T:IntuiNews.(pgp|pgpout) QUIET'
  60.